home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / S-Z / Special Delivery™ Demo.cpt / Special Delivery™ Demo / Claris / Claris Translators / EPSF.rsrc / PS_105 < prev    next >
Text File  |  1991-06-19  |  316b  |  13 lines
  1. %%BeginProcSet : E
  2. /E {
  3. 1.415 setmiterlimit
  4. CM currentmatrix pop
  5. pbox right get pbox left get sub abs dup
  6. pbox bottom get pbox top get sub abs dup 3 -1 roll
  7. lt {exch dup 3 -1 roll exch div 1 exch}
  8. {dup 3 -1 roll exch div 1} ifelse scale 
  9. 0 0 3 -1 roll 2 div 0 360 arc closepath
  10. CM setmatrix
  11. } bind def
  12. %%EndProcSet